home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 July / 1989-07.d64 / ml programming (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  51 lines
  1. 5 print"[147]":poke53280,14:poke53281,6:poke646,14:print"ml music demo"
  2. 10 rem ml program data
  3. 20 data 169,15,141,24,212,169,37,141,5,212,169,12,141,6,212
  4. 30 data 169,40,133,253,169,0,133,252,160,0,177,252,240,65
  5. 40 data 24,101,162,141,0,39,24,165,162,105,4,141,1,39
  6. 50 data 200,177,252,141,0,212,200,177,252,141,1,212
  7. 60 data 169,17,141,4,212,173,1,39,197,162,16,252,169,16,141,4,212
  8. 70 data 173,0,39,197,162,16,252,24,165,252,105,3,133,252
  9. 80 data 165,253,105,0,133,253,144,185,169,0,141,24,212,96
  10. 90 forj=8192to8291:readx:t=t+x:pokej,x:next:ift<>12359thenstop
  11. 100 rem music data (duration, lo-byte freq,hi-byte freq)
  12. 110 data 30,31,21
  13. 120 data 30,209,18
  14. 130 data 60,195,16
  15. 140 data 30,31,21
  16. 150 data 30,209,18
  17. 160 data 60,195,16
  18. 170 data 30,30,25
  19. 180 data 15,96,22
  20. 190 data 15,96,22
  21. 200 data 60,31,21
  22. 210 data 30,30,25
  23. 220 data 15,96,22
  24. 230 data 15,96,22
  25. 240 data 120,31,21
  26. 250 data 0,0,0
  27. 260 p=10240
  28. 270 read a,b,c
  29. 280 poke p,a:poke p+1,b:poke p+2,c
  30. 290 p=p+3
  31. 300 if a<>0 then270
  32. 310 sys 8192
  33. 320 rem here is a basic equivalent
  34. 330 rem ...to the m/l program
  35. 340 rem poke 54296,15
  36. 350 rem poke 54277,32+ 5
  37. 360 rem poke 54278,12
  38. 370 rem    music loops here
  39. 380 rem read t,l,h
  40. 390 rem if t=0 goto 1170
  41. 400 rem tx=ti
  42. 410 rem ta=tx+t
  43. 420 rem poke 54272,l:poke 54273,h
  44. 430 rem poke 54276,17
  45. 440 rem if ti<tx+5 goto 1120
  46. 450 rem poke 54276,16
  47. 460 rem if ti<ta goto 1140
  48. 470 rem goto 1060
  49. 480 rem    music quits here
  50. 490 rem poke 54296,0
  51.